Task class structure:
~~~~~~~~~~~~~~~~~~~~~
create class Task from Window
  export:
  var IsDead      //false
  var DoneBlock   //{||true}
  method New=TaskNew           //o:New() --> self
  method Init=TaskInit         //o:Init(Name,R,C,Rs,Cs,Clr,Shd) --> true
  method GoodInit=TaskGoodInit //o:GoodInit(Name,R,C,Rs,Cs,CurSize,Clr,Shd) --> true
  method Top=TaskTop           //o:Top(lRepaint) --> true
  method VProcess=TaskVProcess //o:VProcess() --> new_active_task_objekt
  method Process=TaskProcess   //o:Process() --> true
  method Done=TaskDone         //o:Done(lRePaint) --> true/false
  endclass